10 input A
20 %(A)=A
30 TV = %(A)
40 goto 10
:return ;run 
